00100		SUBROUTINE NTS3
00200		COMMON/DAT/RACNT(69),RDOT(17),JXAC(7),RNOTE(22)
00300		COMMON R2,JA,CENTR,J2,R3 /PLTR/IPLT
00500	C  ITEMS IN FOLLOWING COMMON BLOCK ARE USED IN 'TAILS' AND 'FERM'
00600		COMMON/ALF/INP(46),RST7,RST3,RSTX,RMINI,RINV,RA,RX,RJX,RJY,
00700		1 RB,RJW,RZ,JX,RG,KL,RJAC,K,L,RQ,RH,RZTM,RXX,JJJ,
01000	C TRI=2  FOR TRIPLE-THICK X NOTES, HARMONICS.
01100	C ***** TRI=1,  THEY ARE DOUBLE-THICK NOW. 4/80 ***
01200		TRI=1
01300		RH=R3
01400	1	CALL RDRAW(KL,RG,RNOTE,RMINI,RH,CENTR,RMINI)
01500		IF(TRI.LE.0)RETURN
01600	CALL DONE   DIAMOND AND X NOTES 2 THICKNESSES NOW.
01700		IF(IPLT.GE.0)RETURN
01800		IF(KL.EQ.8)GO TO 2253
01900		IF(KL.NE.13)RETURN
02000	C   MAKE DBL THICK X AND DIAMOND NOTES. KL=WHICH SHAPE
02100	2253	RH=RH-1.0
02200		TRI=TRI-1
02300		GO TO 1
02400		END
02500	
02600	C*********  FOR LEDGER LINES  *********
02700		SUBROUTINE NTS4
02800		COMMON /STF/RSTFAC(0/7),RSTJ2
02900		COMMON R2,JA,CENTR,J2,RJQ(20),JQ(20)/POSI/STFF(0/7),JJ2,POS
03100	C  ITEMS IN FOLLOWING COMMON BLOCK ARE USED IN 'TAILS' AND 'FERM'
03200		COMMON/ALF/INP(46),RST7,RST3,RSTX,RMINI,RINV,RA,RX,RJX,RJY,
03300		1 RB,RJW,RZ,JX,RG,KL,RJAC,K,L,RQ,RH,RZTM,RXX,JJJ,
03400		1 PUNCT,JY,RJ
03500		EQUIVALENCE (J4,JQ(2)),(J9,JQ(7)) ,(R3,RJQ(1)),(J6,JQ(4))
03600		1,(J12,JQ(10))
03700		IF(J4.LT.2)GO TO 1
03800		J12=(J4+1)/2-6
03900	C J12 FOR LEDGER LINES ABOVE STAFF
04000		GO TO 2
04100	1	J12=-((3-J4)/2)
04200	C BELOW STAFF
04300	2	RJW=R3-7.*RMINI
04400		RZ=R3+20.*RMINI
04500		IF(J12.LT.0)GO TO 71
04600		JX=J12
04700		JRX=13
04800		GO TO 711
04900	71	JRX=J12*2+3
05000		JX=-J12
05100	711	RX=POS-18*RSTJ2+RST7*JRX
05200		IF(J6.LT.0)RZ=RZ+2*RMINI
05300	126	CALL LINX(RJW,RX,RZ,RX)
05800	1126	IF(JX.EQ.1)GO TO 1122
05900		RX=RX+RSTJ2*14.
06000		JX=JX-1
06100		GO TO 126
06200	1122	J9=-1  
06400		END